home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / books.arc / BINSTALL.PRG < prev    next >
Text File  |  1985-04-17  |  2KB  |  83 lines
  1. * binstall.prg 
  2. * Start the chart of accounts 
  3. set talk off
  4. * get general information
  5. erase
  6. use geninfo
  7. dele all
  8. pack
  9. append blank
  10. Text
  11.         Start the Bookkeeping System
  12.      
  13.      This program allows you to set up general
  14.      information and a chart of accounts for the
  15.      bookkeeping system. You need to use this 
  16.      program only once. The edit option under the
  17.      BOOKS main menu allows you to make changes later.
  18.      
  19. endt
  20. @ 11,1 say "Enter the name of the Company or User"
  21. @ 11,41 get Company pict '!XXXXXXXXXXXXXXXXXXXXXXXX'
  22. @ 13,1 SAY 'Enter starting check number for writing checks'
  23. @ 13,50 get last:check pict '9999'
  24. read
  25. erase
  26.  
  27. text
  28.         Next, you need to set up the chart of accounts.
  29.         Account numbers use the format XXX.XX (e.g. 100.00)
  30.         Account numbers in the range of 100.00 to 299.99
  31.         are for INCOME only. Account numbers in the range
  32.         300.00 to 999.99 are for EXPENSES ONLY.
  33.         
  34.         PRESS ANY KEY TO CONTINUE
  35.         
  36. endt
  37. wait
  38. * Prepare the COA file for setting up
  39. * the chart of accounts
  40. erase
  41. use coa index coa
  42. dele all
  43. pack
  44. * Allow the user to type in a
  45. * chart of accounts
  46. stor T to adding
  47. do while adding
  48.    appe blan
  49.    erase
  50.    @ 1, 0 say 'Type in Account Number, Title,'
  51.    @ 1,32 say 'and Current Balance.'
  52.    @ 2, 0 say 'Ebter Ctrl-W to quit'
  53.    @ 4, 0 say 'Account Number'
  54.    @ 4,16 get acct
  55.    @ 5, 0 say 'Title'
  56.    @ 5,16 get title
  57.    @ 6, 0 say 'Month to Date'
  58.    @ 6,16 get amount
  59.    @ 7, 0 say 'Quarter to Date'
  60.    @ 7,16 get qtd
  61.    @ 8, 0 say 'Year to date'
  62.    @ 8,16 get ytd
  63.    read
  64.    * Check for 0 as account
  65.    if acct = 0
  66.       stor F to adding
  67.    endi
  68. endd
  69. * done adding
  70. erase
  71. text
  72.   Returning to dot prompt. To use the booking
  73.   system, type DO BOOKS when dor appears.
  74. endt
  75. * make sure no accounts with account
  76. * number = to 0 stay on chart.
  77. dele all for acct = 0
  78. pack
  79. * that's all folks
  80. release all
  81. use
  82. * end of binstall program.
  83.